home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
BOZOL2.ZIP
/
FUNCTION.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-08
|
1KB
|
50 lines
CASE "UCASE","UPPER"
PUSHARG UCASE$(POPARG$)
CASE "LCASE","LOWER"
PUSHARG LCASE$(POPARG$)
CASE "LTRIM"
PUSHARG LTRIM$(POPARG$)
CASE "RTRIM"
PUSHARG RTRIM$(POPARG$)
CASE "LEFT"
PUSHARG LEFT$(POPARG$,VAL(POPARG$))
CASE "RIGHT"
PUSHARG RIGHT$(POPARG$,VAL(POPARG$))
CASE "MID","SUBSTR"
A$=POPARG$
A1%=VAL(POPARG$)
A2%=VAL(POPARG$)
IF A2%=0 THEN
PUSHARG MID$(A$,A1%)
ELSE
PUSHARG MID$(A$,A1%,A2%)
END IF
CASE "ASC","ASCII"
PUSHARG STR$(ASCII(POPARG$))
CASE "CHR"
PUSHARG CHR$(VAL(POPARG$))
CASE "INKEY"
PUSHARG BOZOINKEY$
CASE "LEN"
PUSHARG STR$(LEN(POPARG$))
CASE "EQUALS","SAME"
IF POPARG$=POPARG$ THEN PUSHARG "-1" ELSE PUSHARG "0"
CASE "NOT"
PUSHARG STR$(NOT VAL(POPARG$))
CASE "FALSE"
PUSHARG "0"
CASE "TRUE"
PUSHARG "-1"
CASE "CWAIT"
DO
a$=BOZOINKEY$
LOOP WHILE A$=""
PUSHARG A$
CASE "DIR"
A$=POPARG$
IF LEN(A$) THEN PUSHARG DIR$(A$) ELSE PUSHARG DIR$
CASE "EXIST"
IF LEN(DIR$(POPARG$)) THEN PUSHARG "-1" ELSE PUSHARG "0"